Revista CD Expert 37/CD Expert nº 37.iso/LastCall/lastcall.exe/stuff/pour.dxr/00008_Window utils.ls

Text File | 2000-03-23 | 1.5 KB | 75 lines

global gPourWindow, gOldPourRect

on closeWindow
end

on adjustWindowHeight diff
  if diff then
    newRect = (the activeWindow).rect
    newRect.top = newRect.top + diff
    (the activeWindow).rect = newRect
  end if
end

on baseRect
  return rect(0, 0, (the activeWindow).sourceRect.width, (the activeWindow).sourceRect.height)
end

on textView
  global gTextViewHeight
  gTextViewHeight = 102
  (the activeWindow).drawRect = baseRect()
  adjustWindowHeight((the activeWindow).rect.height - gTextViewHeight)
end

on noTextView
  global gNoTextViewHeight
  gNoTextViewHeight = 84
  diff = (the activeWindow).rect.height - gNoTextViewHeight
  (the activeWindow).drawRect = offset(baseRect(), 0, -diff)
  adjustWindowHeight(diff)
end

on openWindow
  global gIngredients, gScroller
  gScroller = sprite(22)
end

on startMovie
  if voidp(gPourWindow) then
    gPourWindow = the activeWindow
  end if
  openWindow()
  refreshPourItem(VOID, 0.0)
  set the mouseDownScript to "resetFocusMouseDown"
  set the mouseUpScript to "resetFocusMouseUp"
end

on checkElapsedTime
end

on stopMovie
  refreshPourItem(VOID, 0.0)
end

on refreshDrinkContents direction, flag
  if the activeWindow <> the stage then
    tell the stage
      togglePourClockText(direction, flag)
    end tell
  end if
end

on reinstateArrows direction
  sendAllSprites(#mReinstate, direction)
end

on refreshPourItem newVessel, newQuantity
  if not voidp(newVessel) then
    sendSprite(3, #mUpdate, newVessel)
  end if
  if not voidp(newQuantity) then
    sendSprite(7, #mUpdate, newQuantity)
  end if
end